home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / MODULO.FN < prev    next >
Text File  |  1988-05-01  |  383b  |  21 lines
  1.  
  2. 'Copyright (c) 1987 Marcel Madonna
  3.  
  4.  
  5. '*****************************************************************************
  6.  
  7.  
  8. Def FnMod(A, B)         'A is target, B is mod
  9.  
  10. ' The Quickbasic MOD works only with integers and it is sometimes handy to
  11. ' have this function for single precision numbers.
  12.  
  13.     Static C
  14.     C = A
  15.     While C >= B
  16.         C = C - B
  17.     Wend
  18.     FnMod = C
  19.  
  20. End Def
  21.